let
( *~ ) v1 v2 = v_mul v1 v2